home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1985 July
/
Ahoy_Magazine_85-07_1985_Double_L.d64
/
vic music
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
45 lines
1 rem "vic music"
10 md$="@":m1$=md$:m2$=md$:m3$=md$:gosub 9000
100 sys sr
190 end
9000 sr=828
9005 poke 170,50 :rem tempo
9006 poke 659,1 :rem attack
9007 poke 660,200:rem decay
9008 poke 661,15-0 :rem sustain volume
9009 poke 662,10 :rem release
9010 for i=663 to 676:read a:poke i,a:next
9011 data 166,169,169,5,133,171,198,171,208,252,202,208,245,96
9015 for i=677 to 682:read a:poke i,a:next
9016 data 202,234,234,208,251,96
9020 for i=684 to 767:read a:poke i,a:next
9025 data 32,151,2,136,208,250,96
9030 data 173,14,144,41,240,5,150,141,14,144,96
9035 data 160,15,230,150,32,179,2,174,147,2,32,165,2,136,208,242
9036 data 162,1 ,32,153,2
9037 data 172,149,2,198,150,32,179,2,174,148,2,32,165,2,136,208,242
9038 data 166,170,134,169,164,149,32,172,2
9039 data 164,150,240,14,198,150,32,179,2,174,150,2,32,165,2,136,208,242,96
9045 for i=sr to sr+89:read a:poke i,a:next
9050 data 169,0,133,150,133,147,160,2,177,45,133,148
9051 data 200,177,45,133,155,200,177,45,133,156
9052 data 160,10,177,45,133,158,200,177,45,133,159
9053 data 160,17,177,45,133,163,200,177,45,133,164
9054 data 160,24,177,45,133,167,200,177,45,133,168
9055 data 164,147,177,155,133,149
9056 data 177,158,141,10,144
9057 data 177,163,141,11,144
9058 data 177,167,141,12,144
9059 data 32,190,2,169,0,133,150,230,147,198,148,208,222,96
9100 sl=48:rem # of notes
9110 for i=1 to sl:read b:b=b+128:if b>255 then b=0
9115 m3$=m3$+chr$(b):next
9120 for i=1 to sl:m1$=m1$+chr$(0):next
9125 for i=1 to sl:md$=md$+chr$(25):next
9130 m2$=m1$
9200 data 87,81,79,67,67,47,67,67,79,67,79,87
9210 data 81,79,81,73,73,47,73,73,81,73,81,91
9220 data 87,81,79,67,67,47,67,67,79,67,79,87
9230 data 81,79,81,79,81,73,87,81,79,67,67,67
9990 return